<<<<<<< HEAD Assignment 2 ======= Assignment2_draft >>>>>>> 7ee7f3ca4630f0a16e7d243144eb8a12b237717f <<<<<<< HEAD ======= >>>>>>> 7ee7f3ca4630f0a16e7d243144eb8a12b237717f
<<<<<<< HEAD

Introduction

Question 1

Analysis

Table 1 presented the overall median global growth of alcohol consumption from 2000 to 2018. However, Figure 1 revealed that regions were still experiencing diverging patterns during this period. Regions such as ‘East Asia and Pacific’, ‘South Asia’, ‘North America’ and ‘Middle East and North Africa’ increased in alcohol consumption, while other regions like ‘Europe and Central Asia’, ‘Latin America and Caribbean’ and ‘Sub-Saharan Africa’ experienced declines.

Table 1 provided insights of the average (6.18L) and median (6.11L) alcohol consumption in 2010, this year stands as the highest in total consumption. Similarly, Figure 2 presents the visual depiction of countries around the world reaching their highest in 2010, followed by subsequent decrease.

Table 1

Table 1 displays the IQR, the range, Mean and Median values of total alcohol consumption in 2000, 2005, 2010, 2015 and 2018

Table 1: Alcohol Consumption Statistics throughout the Years
Statistics 2000 2005 2010 2015 2018
Min. 0 0.018999999 0.032000002 0.003 0.003
1st Qu. 2.410000086 2.309999943 2.470000029 2.38499993125 2.3975000975
Median 5.488336086 5.369999886 6.110000134 5.8805630205 5.7849998475
Mean 6.06807314336548 6.12577095275635 6.18171174677114 6.11046166576238 6.03252799644059
3rd Qu. 9.149999619 9.359999657 9.649999619 9.564999819 9.260000229
Max. 17.45000076 19.95000076 17.43000031 18.35000038 20.5

Figure 1

Figure 1 displays the trends in total alcohol consumption across geographical regions from 2000 to 2018, with the World’s rate shown as a dot-dashed line

Region Chart

Figure 1: Region Chart

Question 2

Analysis

Figure 1 highlighted the region ‘Middle East and North Africa’ as having had experienced the least growth and changes from 2000 to 2018 in comparison to the others. Notably, ‘Middle East and North Africa’ consistently exhibited the lowest alcohol consumption (consuming less than 1L each year). Similarly, Figure 2 shows the geographical locations: the Middle East, North Africa and the Greater Indonesia to have had minor changes over the years.

Table 2 demonstrates consistency among the lowest 10 countries in alcohol consumption over the years, with only minor variations. Interestingly, a significant number of these countries are known for their devotion of Islamic values.

Although the impact of religion on alcohol consumption cannot be definitively determined without further global religious information. Figure 1, Table 2 and Figure 2 suggest that these locations (the Middle East, North Africa and the Greater Indonesia) may experience lower alcohol consumption due to religious beliefs.

Figure 2

Figure 2 presents the alcohol consumption per capita in 2000, 2005, 2010, 2015 and 2018. Some notable observations are:

Table 2

Table 2 2 presents the lowest 10 countries in 2000, 2005, 2010, 2015 and 2018 in alcohol consumption

Table 2: Bottom 10 Countries in Alcohol Consumption (Litres)
Entity 2000 2005 2010 2015 2018
Brunei 0.230000004 0.209999993
Niger 0.230000004 0.25
Iran 0.209999993
Mauritania 0.200000003 0.129999995 0.086000003 0.033 0.035999998
Comoros 0.189999998
0.25
Saudi Arabia 0.180000007 0.170000002 0.170000002 0.200000003 0.189999998
Pakistan 0.085000001 0.159999996 0.189999998 0.289999992 0.340000004
Libya 0.064000003 0.082999997 0.097999997 0.028999999 0.018999999
Kuwait 0.037999999 0.018999999 0.032000002 0.003 0.003
Somalia 0 0.068000004 0.280000001 0.013 0.009
Egypt
0.289999992
Bangladesh
0.159999996 0.159999996 0.021 0.018999999
Afghanistan
0.209999993 0.209999993 0.209999993
Yemen
0.180000007 0.055 0.050999999
Syria
0.280000001 0.239999995
======= 
library(tidyverse)
library(plotly)
library(bookdown)
library(rnaturalearth)
library(rnaturalearthdata)
library(maps)
library(dslabs)
library(knitr)
library(scales)
library(dplyr)
library(gridExtra)
#Load merged data
data_init <- read.csv("Alcohol/Merge_all_2010_2020_updated.csv")

#Subset dataset for the section
data_init_mod <- data_init %>%
  select(c("Entity", "Year", "Code", "Death_alcohol_use_disorders"))

1 Introduction

1.1 Gloria’section

1.1.1 Research questions

Consuming too much alcohol and not being able to control drinking can harm an individual’s physical or mental health and safety, causing to family or financial problems. Alcohol use disorders widely affect people across the globe. In this section, we will examine the death caused by alcohol use disorders directly worldwide and attempt to answer the following two questions:

  1. Which countries worldwide were most affected by alcohol use disorders?

  2. Has the situation improved or got worse over the past ten years?

1.1.2 Countries in cold areas tend to be more affected by alcohol use disorders.

Belarus and Mongolia had the highest direct death rates (not including indirect death from suicide) of 21.80 and 17.05 per 100,000 people, respectively, followed by Russia, El Salvador, and Greenland (Table 1.1).

Most of the countries with high death rates are in the subarctic or arctic zones in the northern hemisphere (Figure 1.1). This is in line with findings from section 1. The cold and dark climates in these countries might have contributed to this observation.

However, countries in hot and humid weather such as Guatemala and Brazil also had high death rates from alcohol abuse. Countries in the southern subarctic zone with high alcohol consumption levels only showed low to moderate death rates. Therefore, cultural, genetic, historical, and religious factors cannot be ignored when investigating the underlying reason of high death rates in these countries.

1.1.2.1 Plot

Figure 1.1: Annual Death rates from alcohol

1.1.2.2 Table

Table 1.1: The top 20 countries with highest annual number of death caused by alcohol use disorders.
Entity Mean
Belarus 21.80
Mongolia 17.05
Russia 14.88
El Salvador 14.55
Greenland 13.76
Guatemala 13.44
Saint Kitts and Nevis 12.95
Estonia 12.62
Ukraine 12.53
Latvia 10.59
Kazakhstan 9.92
Moldova 9.40
Lithuania 9.04
Denmark 8.95
Poland 8.30
Nicaragua 8.20
United States Virgin Islands 7.94
Finland 7.14
Kyrgyzstan 7.06
Antigua and Barbuda 6.21

1.1.3 The numbers fluctuate, but we have seen some improvements.

Table 1.2 shows the standard deviations of %death from alcohol per country from 2010-2019. Most countries with high variances also had high average %death rates such as Kazakhstan, Guatemala, Russia, Mongolia, etc.

In figure 1.2, rate groups are classified by the average annual %death rates over 2010-2019 into low (group1, <=1st quarter), medium (group2, <3rd quarter & >1st quarter) and high (group3, >=3st quarter). Only the top ten countries are shown in each group. Note that the y axis are different in each subplot. This is to illustrate the trends in each group.

Zooming in onto the global trends, we can see that:

  • Most countries with both medium and high average annual %death from alcohol showed some improvements with a decreased %death rate.

  • Countries with low average annual %death from alcohol had more fluctuations and some even showed a slight increase.

1.1.3.1 Plot

Figure 1.2: Changes of death rates from alcohol in selected countries 2010-2019

1.1.3.2 Table

Table 1.2: The top 20 countries with highest variance in number of death caused by alcohol use disorders.
Entity Standard_deviation
Kazakhstan 1.89
Guatemala 1.30
Russia 1.26
Mongolia 1.22
Greenland 1.03
Estonia 1.02
Lithuania 0.96
Moldova 0.86
Paraguay 0.84
Saint Kitts and Nevis 0.74
Ukraine 0.70
Finland 0.68
El Salvador 0.66
Kyrgyzstan 0.53
Tajikistan 0.46
Nicaragua 0.45
Belarus 0.42
Ecuador 0.42
Denmark 0.40
Turkmenistan 0.37

1.2 Tony’s section

data <- read.csv("Merge_all_2010_2020_updated.csv")

alc_sex_regions <- data %>%
  select(Entity, Year, Prevalence_alcohol_use_disorders_male, 
         Prevalence_alcohol_use_disorders_female) %>%
  na.omit() %>%
  filter(Entity %in% c("African Region (WHO)", "Australia", "China", 
                       "European Region (WHO)", "United Kingdom", 
                       "United States"))

alc_sex_income <- data %>%
  select(Entity, Year, Prevalence_alcohol_use_disorders_male, 
         Prevalence_alcohol_use_disorders_female) %>%
  na.omit() %>%
  filter(Entity %in% c("World Bank Low Income", "World Bank Lower Middle Income", 
                       "World Bank Upper Middle Income", "World Bank High Income"))

2 What are the variations in the prevalence of alcohol disorders among men and women across different income groups?

Table 2.1: % of Males and Females with Alcohol Use Disorders in 2010 and 2019
Entity Year Prevalence_alcohol_use_disorders_male Prevalence_alcohol_use_disorders_female
World Bank High Income 2010 2.92 1.31
World Bank High Income 2019 2.86 1.29
World Bank Low Income 2010 2.04 0.56
World Bank Low Income 2019 2.06 0.57
World Bank Lower Middle Income 2010 1.91 0.40
World Bank Lower Middle Income 2019 1.77 0.39
World Bank Upper Middle Income 2010 2.37 0.70
World Bank Upper Middle Income 2019 2.42 0.65

An association between income and alcohol disorders reveals noteworthy deviations from 2010 to 2019 but it is also important to consider the influence of other socioeconomic factors. There is a noticeable distinction between the high-income group and other income groups. The percentage of alcohol disorders is significantly greater or approximately doubled when compared with other income groups. Females in the high-income group may be subject to societal expectations or gender roles which lead to increased alcohol related issues. There is a consistent trend indicating a higher prevalence of alcohol disorders among individuals from the higher income groups possibly with work pressures. Interestingly, the income groups among both males and females both have the lower-middle income group with the lowest rate of alcohol disorders. This may be due to considerations such as lower financial stressors and mental and physical well-being. However, the low and upper-middle income groups have a higher rate particularly among the males. Similarly, this may be due to financial and work stressors.

3 What is the temporal trend in the prevalence of alcohol disorders among men and women across major regions?

Table 3.1: % of Males and Females with Alcohol Use Disorders in 2010 and 2019
Entity Year Prevalence_alcohol_use_disorders_male Prevalence_alcohol_use_disorders_female
African Region (WHO) 2010 1.70 0.58
African Region (WHO) 2019 1.68 0.58
Australia 2010 2.51 1.33
Australia 2019 2.72 1.41
China 2010 1.91 0.45
China 2019 2.17 0.40
European Region (WHO) 2010 3.47 1.39
European Region (WHO) 2019 3.36 1.33
United Kingdom 2010 4.83 1.40
United Kingdom 2019 5.48 1.48
United States 2010 3.28 1.88
United States 2019 3.22 1.80

Across all regions, it is clear there is a higher percentage of males with alcohol disorders than females and this has not changed significantly over the period 2010 to 2019. However, there is no evident similar trends between each region as there are various attributable factors such as evolving social norms, increased alcohol availability and alterations in cultural traditions. Regardless, it is apparent over this period, males with alcohol issues are increasing in Australia, China and the United Kingdom.

>>>>>>> 7ee7f3ca4630f0a16e7d243144eb8a12b237717f